agas

agas

rm(list=ls())
data(diamonds)
head(diamonds)
data(mtcars)
head(mtcars)
# Inspired by the image-density plots of Ken Knoblauch
cars <- ggplot(mtcars, aes(mpg, factor(cyl)))  #cyl numero de cilindros   #mpg millas por galón
cars + geom_point() + geom_bin2d()

diamantes<-data.frame(diamonds[,"price"],diamonds[,"carat"],diamonds[,"cut"])
ggplot(diamantes,aes(x=price,y=carat,color=cut)) +
  geom_point(shape=1)

ggplot(diamantes,aes(x=price,y=carat)) + xlim(0,6000) +
  geom_bin2d()

Faceting Consiste en agrupar el dataframe según factores y pintar scatterplots de variables en función de esos agrupamientos:

data(mpg)
head(mpg)
qplot(data = mpg, x = displ, y = hwy, color = manufacturer, facets = ~class)

install.packages("plotly")
also installing the dependencies ‘httpuv’, ‘xtable’, ‘sourcetools’, ‘shiny’, ‘later’, ‘htmlwidgets’, ‘tidyr’, ‘hexbin’, ‘crosstalk’, ‘data.table’, ‘promises’

  There is a binary version available but the source version is later:
probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/httpuv_1.4.5.tgz'
Content type 'application/x-gzip' length 1699291 bytes (1.6 MB)
==================================================
downloaded 1.6 MB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/xtable_1.8-3.tgz'
Content type 'application/x-gzip' length 750457 bytes (732 KB)
==================================================
downloaded 732 KB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/sourcetools_0.1.7.tgz'
Content type 'application/x-gzip' length 133213 bytes (130 KB)
==================================================
downloaded 130 KB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/shiny_1.1.0.tgz'
Content type 'application/x-gzip' length 3587197 bytes (3.4 MB)
==================================================
downloaded 3.4 MB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/later_0.7.5.tgz'
Content type 'application/x-gzip' length 350117 bytes (341 KB)
==================================================
downloaded 341 KB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/htmlwidgets_1.3.tgz'
Content type 'application/x-gzip' length 792580 bytes (774 KB)
==================================================
downloaded 774 KB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/tidyr_0.8.1.tgz'
Content type 'application/x-gzip' length 637948 bytes (622 KB)
==================================================
downloaded 622 KB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/hexbin_1.27.2.tgz'
Content type 'application/x-gzip' length 838355 bytes (818 KB)
==================================================
downloaded 818 KB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/crosstalk_1.0.0.tgz'
Content type 'application/x-gzip' length 647834 bytes (632 KB)
==================================================
downloaded 632 KB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/data.table_1.11.8.tgz'
Content type 'application/x-gzip' length 1692925 bytes (1.6 MB)
==================================================
downloaded 1.6 MB

probando la URL 'https://cran.rstudio.com/bin/macosx/el-capitan/contrib/3.5/promises_1.0.1.tgz'
Content type 'application/x-gzip' length 288093 bytes (281 KB)
==================================================
downloaded 281 KB

The downloaded binary packages are in
    /var/folders/0h/y5t8gnd91k56z5k3myfmgxvh0000gn/T//Rtmp1CrQ3o/downloaded_packages
installing the source package ‘plotly’

probando la URL 'https://cran.rstudio.com/src/contrib/plotly_4.8.0.tar.gz'
Content type 'application/x-gzip' length 1860673 bytes (1.8 MB)
==================================================
downloaded 1.8 MB

* installing *source* package ‘plotly’ ...
** package ‘plotly’ successfully unpacked and MD5 sums checked
** R
** data
*** moving datasets to lazyload DB
** demo
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
*** copying figures
** building package indices
** testing if installed package can be loaded
* DONE (plotly)

The downloaded source packages are in
    ‘/private/var/folders/0h/y5t8gnd91k56z5k3myfmgxvh0000gn/T/Rtmp1CrQ3o/downloaded_packages’
library(reshape2) #facilita la trasnformación entre diferentes formatos de datos.
library(plotly) #https://plot.ly/r/

Attaching package: ‘plotly’

The following objects are masked from ‘package:plyr’:

    arrange, mutate, rename, summarise

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout
sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
# Divide by levels of "sex", in the vertical direction
sp + facet_grid(sex ~ .)

ggplotly()
sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
# Divide by levels of "sex", in the vertical direction
sp + facet_grid(. ~sex  )

ggplotly() #vista optimizada y con muchas herramientas!!!

Dividimos por sex en vertical y day en horizontal:

sp + facet_grid(sex ~ day)

sp + facet_grid( ~ day, ncol=2)
Error in facet_grid(~day, ncol = 2) : unused argument (ncol = 2)
# A histogram of bill sizes
hp <- ggplot(tips, aes(x=total_bill)) + geom_histogram(binwidth=2,colour="white")
hp

# Histogram of total_bill, divided by sex and smoker
hp + facet_grid(sex ~ smoker)

# Same as above, with scales="free_y"
hp + facet_grid(sex ~ smoker, scales="free_y")  #Escalas diferentes para la Y

# With panels that have the same scaling, but different range (and therefore different physical sizes)
hp + facet_grid(sex ~ smoker, scales="free", space="free")

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIVthZ2FzXShVRDJfTjAycmVmZXJlbmNpYXMgZ2dwbG90LnBuZykKCmBgYHtyfQpybShsaXN0PWxzKCkpCmRhdGEoZGlhbW9uZHMpCmhlYWQoZGlhbW9uZHMpCmRhdGEobXRjYXJzKQpoZWFkKG10Y2FycykKYGBgCgpgYGB7cn0KIyBJbnNwaXJlZCBieSB0aGUgaW1hZ2UtZGVuc2l0eSBwbG90cyBvZiBLZW4gS25vYmxhdWNoCmNhcnMgPC0gZ2dwbG90KG10Y2FycywgYWVzKG1wZywgZmFjdG9yKGN5bCkpKSAgI2N5bCBudW1lcm8gZGUgY2lsaW5kcm9zICAgI21wZyBtaWxsYXMgcG9yIGdhbMOzbgpjYXJzICsgZ2VvbV9wb2ludCgpICsgZ2VvbV9iaW4yZCgpCmBgYAoKYGBge3J9CmRpYW1hbnRlczwtZGF0YS5mcmFtZShkaWFtb25kc1ssInByaWNlIl0sZGlhbW9uZHNbLCJjYXJhdCJdLGRpYW1vbmRzWywiY3V0Il0pCmdncGxvdChkaWFtYW50ZXMsYWVzKHg9cHJpY2UseT1jYXJhdCxjb2xvcj1jdXQpKSArCiAgZ2VvbV9wb2ludChzaGFwZT0xKQoKZ2dwbG90KGRpYW1hbnRlcyxhZXMoeD1wcmljZSx5PWNhcmF0KSkgKyB4bGltKDAsNjAwMCkgKyAjY29uIFhMSU0gZSBZTElNIHB1ZWRlIGxpbWluYXIgbGEgZ3LDoWZpY2EuIEhhY2VyIFpPT00gZW4gdW5hIHBhcnRlIGNvbmNyZXRhLgogIGdlb21fYmluMmQoKQpgYGAKCkZhY2V0aW5nCkNvbnNpc3RlIGVuIGFncnVwYXIgZWwgZGF0YWZyYW1lIHNlZ8O6biBmYWN0b3JlcyB5IHBpbnRhciBzY2F0dGVycGxvdHMgZGUgdmFyaWFibGVzIGVuIGZ1bmNpw7NuIGRlIGVzb3MgYWdydXBhbWllbnRvczoKYGBge3J9CmRhdGEobXBnKQpoZWFkKG1wZykKYGBgCgpgYGB7cn0KcXBsb3QoZGF0YSA9IG1wZywgeCA9IGRpc3BsLCB5ID0gaHd5LCBjb2xvciA9IG1hbnVmYWN0dXJlciwgZmFjZXRzID0gfmNsYXNzKQpgYGAKCmBgYHtyfQppbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQpsaWJyYXJ5KHJlc2hhcGUyKSAjZmFjaWxpdGEgbGEgdHJhc25mb3JtYWNpw7NuIGVudHJlIGRpZmVyZW50ZXMgZm9ybWF0b3MgZGUgZGF0b3MuCmxpYnJhcnkocGxvdGx5KSAjaHR0cHM6Ly9wbG90Lmx5L3IvCmBgYAoKCgpgYGB7cn0KCnNwIDwtIGdncGxvdCh0aXBzLCBhZXMoeD10b3RhbF9iaWxsLCB5PXRpcC90b3RhbF9iaWxsKSkgKyBnZW9tX3BvaW50KHNoYXBlPTEpCgojIERpdmlkZSBieSBsZXZlbHMgb2YgInNleCIsIGluIHRoZSB2ZXJ0aWNhbCBkaXJlY3Rpb24Kc3AgKyBmYWNldF9ncmlkKHNleCB+IC4pCmdncGxvdGx5KCkgI3Zpc3RhIG9wdGltaXphZGEgeSBjb24gbXVjaGFzIGhlcnJhbWllbnRhcyEhIQpgYGAKCmBgYHtyfQpzcCA8LSBnZ3Bsb3QodGlwcywgYWVzKHg9dG90YWxfYmlsbCwgeT10aXAvdG90YWxfYmlsbCkpICsgZ2VvbV9wb2ludChzaGFwZT0xKQoKIyBEaXZpZGUgYnkgbGV2ZWxzIG9mICJzZXgiLCBpbiB0aGUgdmVydGljYWwgZGlyZWN0aW9uCnNwICsgZmFjZXRfZ3JpZCguIH5zZXggICkKZ2dwbG90bHkoKSAjdmlzdGEgb3B0aW1pemFkYSB5IGNvbiBtdWNoYXMgaGVycmFtaWVudGFzISEhCmBgYAoKRGl2aWRpbW9zIHBvciBzZXggZW4gdmVydGljYWwgeSBkYXkgZW4gaG9yaXpvbnRhbDoKYGBge3J9CnNwICsgZmFjZXRfZ3JpZChzZXggfiBkYXkpCmBgYAoKYGBge3J9CnNwICsgZmFjZXRfd3JhcCggfiBkYXksIG5jb2w9MikgICNjb24gZmFjZXRfZ3JpZCBubyBoYXkgbGEgcG9zaWJpbGlkYWQgZGUgZXNwZWNpZmljYXIgY29sdW1uYXMKYGBgCgpgYGB7cn0KIyBBIGhpc3RvZ3JhbSBvZiBiaWxsIHNpemVzCmhwIDwtIGdncGxvdCh0aXBzLCBhZXMoeD10b3RhbF9iaWxsKSkgKyBnZW9tX2hpc3RvZ3JhbShiaW53aWR0aD0yLGNvbG91cj0id2hpdGUiKQpocAojIEhpc3RvZ3JhbSBvZiB0b3RhbF9iaWxsLCBkaXZpZGVkIGJ5IHNleCBhbmQgc21va2VyCmhwICsgZmFjZXRfZ3JpZChzZXggfiBzbW9rZXIpCmBgYAoKYGBge3J9CiMgU2FtZSBhcyBhYm92ZSwgd2l0aCBzY2FsZXM9ImZyZWVfeSIKaHAgKyBmYWNldF9ncmlkKHNleCB+IHNtb2tlciwgc2NhbGVzPSJmcmVlX3kiKSAgI0VzY2FsYXMgZGlmZXJlbnRlcyBwYXJhIGxhIFkKYGBgCgpgYGB7cn0KIyBXaXRoIHBhbmVscyB0aGF0IGhhdmUgdGhlIHNhbWUgc2NhbGluZywgYnV0IGRpZmZlcmVudCByYW5nZSAoYW5kIHRoZXJlZm9yZSBkaWZmZXJlbnQgcGh5c2ljYWwgc2l6ZXMpCmhwICsgZmFjZXRfZ3JpZChzZXggfiBzbW9rZXIsIHNjYWxlcz0iZnJlZSIsIHNwYWNlPSJmcmVlIikKYGBgCgo=